home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / text_utl / parsed / main.bas < prev    next >
Encoding:
BASIC Source File  |  1994-10-04  |  1.5 KB  |  77 lines
  1. Option Explicit
  2. Option Compare Text
  3.  
  4. 'form show
  5. Global Const MODAL = 1
  6.  
  7. 'msgbox
  8. Global Const MB_ICONINFORMATION = 64
  9.  
  10. 'mousePointer
  11. Global Const DEFAULT = 0
  12. Global Const HOURGLASS = 11
  13.  
  14.  
  15. 'colors
  16. Global Const LIGHT_GRAY = &HC0C0C0
  17. Global Const BLACK = &H0&
  18. 'WindowState
  19. Global Const NORMAL = 0    ' 0 - Normal
  20. Global Const MINIMIZED = 1 ' 1 - Minimized
  21. Global Const MAXIMIZED = 2 ' 2 - Maximized
  22.  
  23. 'Context frmSelect is loaded (next step to take)
  24. Global Const FLG_PROCPARSE = 1
  25. Global Const FLG_MULTIDELIM = 2
  26.  
  27. Global Const WM_USER = &H400
  28. ''  Listbox messages
  29. Global Const LB_ADDSTRING = (WM_USER + 1)
  30. Global Const LB_INSERTSTRING = (WM_USER + 2)
  31. Global Const LB_DELETESTRING = (WM_USER + 3)
  32. Global Const LB_RESETCONTENT = (WM_USER + 5)
  33.  
  34. 'use with API listbox method
  35. Declare Function SendMessageByString& Lib "User" Alias "SendMessage" (ByVal hWnd%, ByVal wMsg%, ByVal wParam%, ByVal lParam$)
  36.  
  37.  
  38.  
  39. Sub EndProg ()
  40.    Dim c%
  41.  
  42.    For c% = Forms.Count - 1 To 0 Step -1
  43.       Unload Forms(c%)
  44.    Next c%
  45.    End
  46.  
  47. End Sub
  48.  
  49. 'load selected text file and return the contents
  50. 'in a string variable
  51. Function LoadFile$ (TheFile$, FileLength&)
  52.    'string var containing file text
  53.    Dim FileStr$
  54.    Dim FNum%
  55.  
  56.    FNum% = FreeFile
  57.  
  58.    Open TheFile$ For Input As #FNum
  59.    
  60.    FileStr$ = Input$(FileLength&, #FNum)
  61.  
  62.    Close #FNum
  63.  
  64.    LoadFile$ = FileStr$
  65.  
  66. End Function
  67.  
  68. 'Program startup
  69. Sub Main ()
  70.     ChDir App.Path
  71.     
  72.     Load frmListBox
  73.     
  74.     frmMain.Show
  75. End Sub
  76.  
  77.